home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #2 / Amiga Plus 1996 #2.iso / amigaplus_cd-rom_index / nr.1-95 < prev    next >
Text File  |  1996-01-08  |  1KB  |  40 lines
  1. ; (C) Sandro Paolini / s_paolini@pluribus.wupper.de / 1/96
  2.  
  3. ; Don't ask me, ask AmigaGuide! ;(
  4.  
  5. IF NOT exists RAM:
  6.   Echo "Ohne die Ram-Disk *"RAM:*" funktioniert dieses Skript leider nicht!"
  7.   Echo "Auf jeder normalen Workbench sollte die RAM-Disk verfügbar sein."
  8.   Wait 5
  9.   Quit
  10. ENDIF
  11.  
  12. FailAt 240
  13. Stack 30000
  14. Set >NIL: Suchmuster ""
  15. Set Suchmuster `ESR "" TITLEBAR "Amiga Plus CD-ROM Index" MESSAGE "Bitte Suchbegriff eingeben:"`
  16. IF "$Suchmuster" EQ ""
  17.   QUIT
  18. ENDIF
  19.  
  20. Echo >RAM:Plus-CD-Temp-1 "@DATABASE Such-Guide"
  21. Echo >>RAM:Plus-CD-Temp-1 "@REMARK Von Sandro Paolini für Amiga Plus CD Vol. 2/96"
  22. Echo >>RAM:Plus-CD-Temp-1 "@NODE MAIN *"Gefundene Einträge auf >>$Suchmuster<<*""
  23. Echo >>RAM:Plus-CD-Temp-1 ""
  24. Echo >>RAM:Plus-CD-Temp-1 " Nr.| Verzeichnis"
  25. Echo >>RAM:Plus-CD-Temp-1 "=================="
  26. AGrep >RAM:Plus-CD-Temp-2 -i "$Suchmuster" Index_1
  27. Echo >>RAM:Plus-CD-Temp-2 "@ENDNODE"
  28. Join RAM:Plus-CD-Temp-1 RAM:Plus-CD-Temp-2 TO RAM:Plus-CD-Suche.guide
  29. Delete >NIL: RAM:Plus-CD-Temp-1 RAM:Plus-CD-Temp-2
  30. Copy >NIL: FROM #?Shell#? TO RAM:
  31. Protect RAM:Shellstart +s
  32. Protect RAM:ShellOpen +s
  33. Protect RAM:ShellCopy1 +s
  34. Protect RAM:ShellCopy2 +s
  35. Protect RAM:ShellDir1 +s
  36. Protect RAM:ShellDir2 +s
  37. AmigaGuide RAM:Plus-CD-Suche.guide
  38. Delete >NIL: RAM:Shell#? RAM:Plus-CD-Suche.guide
  39. ENDCLI
  40.